www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_admin_models.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file="modelsys_inc/D_model_class.asp"-->
<!--#include file="D_del_no_use_custom_adminpage.asp"-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
.STYLE6 {color: #0000FF}
-->
</style>
<div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:800px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;">
<%
if qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
function remoteUpload(o) {
try{
var strText = GetContentHTML() ;
var divProcessing=document.getElementById("divProcessing");
var objField = document.getElementsByName("content_UploadText")[0];
objField.value = strText ;
if (o) {
divProcessing.style.top = 800 ;
divProcessing.style.left = 200 ;
divProcessing.style.display = "";
document.remoteuploadb.submit();
}else{
divProcessing.style.display = "none";
}
}
catch(e){}
}
function remoteUploadok() {
try{
divProcessing.style.display = "none";
}
catch(e){}
}
function GetContentHTML(){
var strHTML ;
try{
var oEditor = FCKeditorAPI.GetInstance('Content') ;
strHTML = oEditor.GetXHTML()
}
catch(e){
strHTML = '';
}
return strHTML
}
var sLinkOriginalFileName = "originalfilename" ;
var sLinkSaveFileName = "savefilename" ;
var sLinkSavePathFileName = "UploadFileList" ;
function addUploadFile(originalFileName, saveFileName, savePathFileName){
doInterfaceUpload(sLinkOriginalFileName, originalFileName);
doInterfaceUpload(sLinkSaveFileName, saveFileName);
doInterfaceUpload(sLinkSavePathFileName, savePathFileName);
}
function doInterfaceUpload(strLinkName, strValue){
if (strValue=="") return;
if (strLinkName){
var objLinkUpload = document.getElementsByName(strLinkName)[0];
if (objLinkUpload){
if (objLinkUpload.value!=""){
objLinkUpload.value = objLinkUpload.value + "|";
}
objLinkUpload.value = objLinkUpload.value + strValue;
objLinkUpload.fireEvent("onchange");
}
}
}
function doChange(objText, objDrop){
if (!objDrop) return;
//if(document.myform.BriefTopic.selectedIndex<2){
// document.myform.BriefTopic.selectedIndex+=1;
//}
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
}
objDrop.selectedIndex = nIndex;
}
//-->
</script>
<br />
<br />
<br />
<script language="javascript">
function delact(id){
if (confirm("确认删除?")==1){
self.location="D_delete_model.asp?modelid="+id;
}
}
</script>
<script language="javascript">
function ks(urll){
if (confirm("确认要开始?")==1){
self.location=urll;
}
}
</script>
<table width="96%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="7%" height="27" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">后台模型名称</span></td>
<td width="22%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">后台模型项目实例名称 (显示在后台的主系统菜单里)</span></td>
<td width="7%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">模型文件状态</span></td>
<td width="9%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">模型描述</span></td>
<td width="13%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">模型存储路径</span></td>
<td width="23%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">操作</span></td>
</tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
maxperpage=15
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")&"&keyword="&trim(request("keyword"))&"&sys_content_type="&sys_content_type&"&qrr="&request("qrr")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ND_models_reg",conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to MaxPerpage
if Rs.eof then exit for
set filea=new Cls_FSO
set fileb=new DosAsp
fla1="../../Model/Models/"&rs("model_folder_path_name")&"/"&iconfigfile
if filea.ReportFileStatus(server.mappath(fla1))=1 then
zhuantai="正常"
dddd1=loadfile(fla1)
call get_info_array_from_model_file_content(dddd1)
else
zhuantai="<font color=#ff0000>/Model/Models/目录下找不到模型配置文件</font>"
call get_info_array_from_model_file_content(" ")
end if
if cstr(rs("is_added_to_adminmenu"))="1" then
zhuantai2="<font color=#0000ff>已添加本后台模型到总后台的主系统菜单的菜单项里</font>"
else
zhuantai2="<font color=#ff0000>本后台模型在总后台的主系统菜单里的菜单项已隐藏</font>"
end if
%>
<tr bgcolor="#EDF8FE">
<td width="7%" height="27" align="center" style="word-break:break-all"><%=nd1_model_name%></td>
<td width="22%" align="left" style="word-break:break-all">
本后台模型项目实例名称 (显示在后台的主系统菜单里):<br />
<strong><%=rs("houtai_menu_shili_name")%></strong><hr align="left" width="150" />
本模型实例的数据库表前缀为:<br /><strong><%=rs("all_biao_rnd_qianzhui")%></strong><br /> <br /> </td>
<td width="7%" align="center" style="word-break:break-all"><%=zhuantai%></td>
<td width="9%" align="center" style="word-break:break-all"><%=nd1_model_beizhu%></td>
<td width="13%" align="center" style="word-break:break-all">
/Model/Models/<%=rs("model_folder_path_name")%> </td>
<td width="23%" align="left" bgcolor="#EAEAEA">
<a href="../D_menu_models_main.asp">进入后台模型生成的后台</a> <hr />
<a href="D_add_biao_to_model.asp?modelid=<%=rs("id")%>">添加一个子模型至本模型</a><br />
<a href="D_admin_zimodels.asp?modelid=<%=rs("id")%>">管理本模型的所有子模型</a><br />
<hr />
<a href="D_diaoyong.asp" target="_blank">前台如何调用本后台模型管理的数据库表的内容并显示</a><br />
<hr />
<a href="D_complie_all_zimodel_before.asp?modelid=<%=rs("id")%>&callbackurl=D_admin_models.asp">重新编译本模型并刷新本模型生成的后台</a>
<hr />
<a href=# onclick="delact('<%=rs("id")%>');">删除此模型</a></td>
</tr>
<%
Rs.movenext
next
else
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr>
<td colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
</table>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>